*  FILE NAME: CASHMAIN.PRG
*  BY:
*  DATE: May 22, 1996
*  DESC:
*  CALLED BY:
*  DATA FILES:
STORE 0 TO VADD
STORE ' ' TO VMORE
sele 4
dr='n:'
f4='main_area'
set exclu off
use &dr&f4
count to cnt
CNT=CNT+1
declare fild[cnt]
declare kod1[cnt]
cr=0
go top
do while .not. eof()
   cr=cr+1
   fild[cr]=subs(main_area,1,20)+'  '+area_code
   kod1[cr]=area_code
   skip
enddo
CR=CR+1
FILD[CR]='MEDICATIONS'+SPACE(11)+'M'
KOD1[CR]='M'
set colo to w/b
inkey()
set colo to w+/rb,gr+/r
@ 9,31 clea to 21,57
@ 9,31 to 21,57 double
do while .t.
   pilih=achoice(10,33,20,55,FILD)
   IF LASTKEY()=13
      kodeP=kod1[pilih]
      MAIN = FILD[PILIH]
      exit
   ELSE
      if lastkey()=27
         SELE 1
         exit
      else
         loop
      endif
   ENDIF
enddo
return



*Formatted by: Herman T Ver. 7.1  on May 22, 1996.
